home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 041-050 / amok41 / spiele / mastermind / txt / plusminusimg.mod < prev    next >
Text File  |  1993-11-04  |  20KB  |  332 lines
  1. (*********************************************************************
  2.  *
  3.  *  :Program.        Image für Mastermind
  4.  *  :Author.        Hans Schafft
  5.  *  :Address.        Landfriedstraße 1A - Hinterhaus
  6.  *  :Address.        6900 Heidelberg
  7.  *  :Phone.        06221 - 22416
  8.  *  :Version.        1.0
  9.  *  :Date.        1989
  10.  *  :Copyright.        PD
  11.  *  :Language.        Modula-II
  12.  *  :Translator.    M2Amiga
  13.  *
  14.  *********************************************************************)
  15. (*     Um die PfeilImages einzubinden habe ich IFFRToCode von AMOK #3  *)
  16. (*    benutzt. Dem Autor Pit Burkhardt auf diesem Wege vielen Dank !  *)
  17. (************************************************************************)
  18.  
  19. IMPLEMENTATION MODULE PlusMinusImg;
  20.  
  21. FROM SYSTEM    IMPORT    WORD;
  22. FROM Heap    IMPORT    AllocMem;
  23.  
  24. BEGIN
  25.   AllocMem(PlusMinusImgPtr,SIZE(PlusMinusImgPtr^),TRUE);
  26.  
  27.   WITH PlusMinusImage DO
  28.     leftEdge := 0;
  29.     topEdge := 0;
  30.     width :=112;
  31.     height:= 35;
  32.     depth :=  4;
  33.     imageData := PlusMinusImgPtr;
  34.     planePick := 0FFH;
  35.     planeOnOff := 0H;
  36.     nextImage := NIL;
  37.   END;
  38.  
  39.  
  40.   WITH PlusMinusImgPtr^ DO         (* plMi *)
  41.  
  42.   (* Plane 1 *)
  43.  Dat[  0]:=00000H; Dat[  1]:=00000H; Dat[  2]:=00000H; Dat[  3]:=00000H;
  44.  Dat[  4]:=00000H; Dat[  5]:=00000H; Dat[  6]:=00000H;(* 1*)
  45.  Dat[  7]:=00000H; Dat[  8]:=00000H; Dat[  9]:=00000H; Dat[ 10]:=00000H;
  46.  Dat[ 11]:=00000H; Dat[ 12]:=00000H; Dat[ 13]:=00000H;(* 2*)
  47.  Dat[ 14]:=00000H; Dat[ 15]:=00000H; Dat[ 16]:=00000H; Dat[ 17]:=00000H;
  48.  Dat[ 18]:=00000H; Dat[ 19]:=00000H; Dat[ 20]:=00000H;(* 3*)
  49.  Dat[ 21]:=00000H; Dat[ 22]:=00000H; Dat[ 23]:=00000H; Dat[ 24]:=00000H;
  50.  Dat[ 25]:=00000H; Dat[ 26]:=00000H; Dat[ 27]:=00000H;(* 4*)
  51.  Dat[ 28]:=00000H; Dat[ 29]:=00000H; Dat[ 30]:=00000H; Dat[ 31]:=00000H;
  52.  Dat[ 32]:=00000H; Dat[ 33]:=00000H; Dat[ 34]:=00000H;(* 5*)
  53.  Dat[ 35]:=00000H; Dat[ 36]:=00000H; Dat[ 37]:=00000H; Dat[ 38]:=00000H;
  54.  Dat[ 39]:=00000H; Dat[ 40]:=00000H; Dat[ 41]:=00000H;(* 6*)
  55.  Dat[ 42]:=00000H; Dat[ 43]:=00100H; Dat[ 44]:=03FFFH; Dat[ 45]:=0FFFFH;
  56.  Dat[ 46]:=0FFFCH; Dat[ 47]:=00080H; Dat[ 48]:=00000H;(* 7*)
  57.  Dat[ 49]:=00000H; Dat[ 50]:=00180H; Dat[ 51]:=03FFFH; Dat[ 52]:=0FFFFH;
  58.  Dat[ 53]:=0FFFCH; Dat[ 54]:=00180H; Dat[ 55]:=00000H;(* 8*)
  59.  Dat[ 56]:=00000H; Dat[ 57]:=021C0H; Dat[ 58]:=03FFFH; Dat[ 59]:=0FFFFH;
  60.  Dat[ 60]:=0FFFCH; Dat[ 61]:=00384H; Dat[ 62]:=00000H;(* 9*)
  61.  Dat[ 63]:=00000H; Dat[ 64]:=031E0H; Dat[ 65]:=03FFFH; Dat[ 66]:=0FFFFH;
  62.  Dat[ 67]:=0FFFCH; Dat[ 68]:=0078CH; Dat[ 69]:=00000H;(*10*)
  63.  Dat[ 70]:=00000H; Dat[ 71]:=038F0H; Dat[ 72]:=03FFFH; Dat[ 73]:=0FFFFH;
  64.  Dat[ 74]:=0FFFCH; Dat[ 75]:=00F1CH; Dat[ 76]:=00000H;(*11*)
  65.  Dat[ 77]:=00000H; Dat[ 78]:=03C78H; Dat[ 79]:=03FFFH; Dat[ 80]:=0FFFFH;
  66.  Dat[ 81]:=0FFFCH; Dat[ 82]:=01E3CH; Dat[ 83]:=00000H;(*12*)
  67.  Dat[ 84]:=00000H; Dat[ 85]:=03E38H; Dat[ 86]:=03FFFH; Dat[ 87]:=0FFFFH;
  68.  Dat[ 88]:=0FFFCH; Dat[ 89]:=01C7CH; Dat[ 90]:=00000H;(*13*)
  69.  Dat[ 91]:=00000H; Dat[ 92]:=03F18H; Dat[ 93]:=03FFFH; Dat[ 94]:=0FFFFH;
  70.  Dat[ 95]:=0FFFCH; Dat[ 96]:=018FCH; Dat[ 97]:=00000H;(*14*)
  71.  Dat[ 98]:=00000H; Dat[ 99]:=03F88H; Dat[100]:=03FFFH; Dat[101]:=0FFFFH;
  72.  Dat[102]:=0FFFCH; Dat[103]:=011FCH; Dat[104]:=00000H;(*15*)
  73.  Dat[105]:=00000H; Dat[106]:=03FC0H; Dat[107]:=03FFFH; Dat[108]:=0FFFFH;
  74.  Dat[109]:=0FFFCH; Dat[110]:=003FCH; Dat[111]:=00000H;(*16*)
  75.  Dat[112]:=00000H; Dat[113]:=03FE0H; Dat[114]:=03FFFH; Dat[115]:=0FFFFH;
  76.  Dat[116]:=0FFFCH; Dat[117]:=007FCH; Dat[118]:=00000H;(*17*)
  77.  Dat[119]:=00000H; Dat[120]:=03FF0H; Dat[121]:=03FFFH; Dat[122]:=0FFFFH;
  78.  Dat[123]:=0FFFCH; Dat[124]:=00FFCH; Dat[125]:=00000H;(*18*)
  79.  Dat[126]:=00000H; Dat[127]:=03FF8H; Dat[128]:=03FFFH; Dat[129]:=0FFFFH;
  80.  Dat[130]:=0FFFCH; Dat[131]:=01FFCH; Dat[132]:=00000H;(*19*)
  81.  Dat[133]:=00000H; Dat[134]:=03FF0H; Dat[135]:=03FFFH; Dat[136]:=0FFFFH;
  82.  Dat[137]:=0FFFCH; Dat[138]:=00FFCH; Dat[139]:=00000H;(*20*)
  83.  Dat[140]:=00000H; Dat[141]:=03FE0H; Dat[142]:=03FFFH; Dat[143]:=0FFFFH;
  84.  Dat[144]:=0FFFCH; Dat[145]:=007FCH; Dat[146]:=00000H;(*21*)
  85.  Dat[147]:=00000H; Dat[148]:=03FC0H; Dat[149]:=03FFFH; Dat[150]:=0FFFFH;
  86.  Dat[151]:=0FFFCH; Dat[152]:=003FCH; Dat[153]:=00000H;(*22*)
  87.  Dat[154]:=00000H; Dat[155]:=03F88H; Dat[156]:=03FFFH; Dat[157]:=0FFFFH;
  88.  Dat[158]:=0FFFCH; Dat[159]:=011FCH; Dat[160]:=00000H;(*23*)
  89.  Dat[161]:=00000H; Dat[162]:=03F18H; Dat[163]:=03FFFH; Dat[164]:=0FFFFH;
  90.  Dat[165]:=0FFFCH; Dat[166]:=018FCH; Dat[167]:=00000H;(*24*)
  91.  Dat[168]:=00000H; Dat[169]:=03E38H; Dat[170]:=03FFFH; Dat[171]:=0FFFFH;
  92.  Dat[172]:=0FFFCH; Dat[173]:=01C7CH; Dat[174]:=00000H;(*25*)
  93.  Dat[175]:=00000H; Dat[176]:=03C78H; Dat[177]:=03FFFH; Dat[178]:=0FFFFH;
  94.  Dat[179]:=0FFFCH; Dat[180]:=01E3CH; Dat[181]:=00000H;(*26*)
  95.  Dat[182]:=00000H; Dat[183]:=038F0H; Dat[184]:=03FFFH; Dat[185]:=0FFFFH;
  96.  Dat[186]:=0FFFCH; Dat[187]:=00F1CH; Dat[188]:=00000H;(*27*)
  97.  Dat[189]:=00000H; Dat[190]:=031E0H; Dat[191]:=03FFFH; Dat[192]:=0FFFFH;
  98.  Dat[193]:=0FFFCH; Dat[194]:=0078CH; Dat[195]:=00000H;(*28*)
  99.  Dat[196]:=00000H; Dat[197]:=021C0H; Dat[198]:=03FFFH; Dat[199]:=0FFFFH;
  100.  Dat[200]:=0FFFCH; Dat[201]:=00384H; Dat[202]:=00000H;(*29*)
  101.  Dat[203]:=00000H; Dat[204]:=00180H; Dat[205]:=03FFFH; Dat[206]:=0FFFFH;
  102.  Dat[207]:=0FFFCH; Dat[208]:=00180H; Dat[209]:=00000H;(*30*)
  103.  Dat[210]:=00000H; Dat[211]:=00100H; Dat[212]:=00000H; Dat[213]:=00000H;
  104.  Dat[214]:=00000H; Dat[215]:=00080H; Dat[216]:=00000H;(*31*)
  105.  Dat[217]:=00000H; Dat[218]:=00000H; Dat[219]:=00000H; Dat[220]:=00000H;
  106.  Dat[221]:=00000H; Dat[222]:=00000H; Dat[223]:=00000H;(*32*)
  107.  Dat[224]:=00000H; Dat[225]:=00000H; Dat[226]:=00000H; Dat[227]:=00000H;
  108.  Dat[228]:=00000H; Dat[229]:=00000H; Dat[230]:=00000H;(*33*)
  109.  Dat[231]:=00000H; Dat[232]:=00000H; Dat[233]:=00000H; Dat[234]:=00000H;
  110.  Dat[235]:=00000H; Dat[236]:=00000H; Dat[237]:=00000H;(*34*)
  111.  Dat[238]:=00000H; Dat[239]:=00000H; Dat[240]:=00000H; Dat[241]:=00000H;
  112.  Dat[242]:=00000H; Dat[243]:=00000H; Dat[244]:=00000H;(*35*)
  113.  
  114.   (* Plane 2 *)
  115.  Dat[245]:=00000H; Dat[246]:=00000H; Dat[247]:=00000H; Dat[248]:=00000H;
  116.  Dat[249]:=00000H; Dat[250]:=00000H; Dat[251]:=00000H;(* 1*)
  117.  Dat[252]:=00000H; Dat[253]:=00007H; Dat[254]:=0FFFFH; Dat[255]:=0FFFFH;
  118.  Dat[256]:=0FFFFH; Dat[257]:=0E000H; Dat[258]:=00000H;(* 2*)
  119.  Dat[259]:=00000H; Dat[260]:=00007H; Dat[261]:=0FFFFH; Dat[262]:=0FFFFH;
  120.  Dat[263]:=0FFFFH; Dat[264]:=0E000H; Dat[265]:=00000H;(* 3*)
  121.  Dat[266]:=00000H; Dat[267]:=0C107H; Dat[268]:=0FFFFH; Dat[269]:=0FFFFH;
  122.  Dat[270]:=0FFFFH; Dat[271]:=0E083H; Dat[272]:=00000H;(* 4*)
  123.  Dat[273]:=00001H; Dat[274]:=0E187H; Dat[275]:=0FFFFH; Dat[276]:=0FFFFH;
  124.  Dat[277]:=0FFFFH; Dat[278]:=0E187H; Dat[279]:=08000H;(* 5*)
  125.  Dat[280]:=00003H; Dat[281]:=0F1C7H; Dat[282]:=0FFFFH; Dat[283]:=0FFFFH;
  126.  Dat[284]:=0FFFFH; Dat[285]:=0E38FH; Dat[286]:=0C000H;(* 6*)
  127.  Dat[287]:=00007H; Dat[288]:=078E7H; Dat[289]:=0C000H; Dat[290]:=00000H;
  128.  Dat[291]:=00003H; Dat[292]:=0E71DH; Dat[293]:=0E000H;(* 7*)
  129.  Dat[294]:=0000FH; Dat[295]:=03C77H; Dat[296]:=0C000H; Dat[297]:=00000H;
  130.  Dat[298]:=00003H; Dat[299]:=0EE3CH; Dat[300]:=0F000H;(* 8*)
  131.  Dat[301]:=0001EH; Dat[302]:=01E3FH; Dat[303]:=0C000H; Dat[304]:=00000H;
  132.  Dat[305]:=00003H; Dat[306]:=0FC78H; Dat[307]:=07800H;(* 9*)
  133.  Dat[308]:=0003CH; Dat[309]:=00E1FH; Dat[310]:=0C000H; Dat[311]:=00000H;
  134.  Dat[312]:=00003H; Dat[313]:=0F870H; Dat[314]:=03C00H;(*10*)
  135.  Dat[315]:=00078H; Dat[316]:=0070FH; Dat[317]:=0C000H; Dat[318]:=00000H;
  136.  Dat[319]:=00003H; Dat[320]:=0F0E0H; Dat[321]:=01E00H;(*11*)
  137.  Dat[322]:=000F0H; Dat[323]:=00387H; Dat[324]:=0C000H; Dat[325]:=00000H;
  138.  Dat[326]:=00003H; Dat[327]:=0E1C0H; Dat[328]:=00F00H;(*12*)
  139.  Dat[329]:=001E0H; Dat[330]:=001C7H; Dat[331]:=0C000H; Dat[332]:=00000H;
  140.  Dat[333]:=00003H; Dat[334]:=0E380H; Dat[335]:=00780H;(*13*)
  141.  Dat[336]:=003C0H; Dat[337]:=000E7H; Dat[338]:=0C000H; Dat[339]:=00000H;
  142.  Dat[340]:=00003H; Dat[341]:=0E700H; Dat[342]:=003C0H;(*14*)
  143.  Dat[343]:=00780H; Dat[344]:=00077H; Dat[345]:=0C000H; Dat[346]:=00000H;
  144.  Dat[347]:=00003H; Dat[348]:=0EE00H; Dat[349]:=001E0H;(*15*)
  145.  Dat[350]:=00F00H; Dat[351]:=0003FH; Dat[352]:=0C000H; Dat[353]:=00000H;
  146.  Dat[354]:=00003H; Dat[355]:=0FC00H; Dat[356]:=000F0H;(*16*)
  147.  Dat[357]:=01E00H; Dat[358]:=0001FH; Dat[359]:=0C000H; Dat[360]:=00000H;
  148.  Dat[361]:=00003H; Dat[362]:=0F800H; Dat[363]:=00078H;(*17*)
  149.  Dat[364]:=03C00H; Dat[365]:=0000FH; Dat[366]:=0C000H; Dat[367]:=00000H;
  150.  Dat[368]:=00003H; Dat[369]:=0F000H; Dat[370]:=0003CH;(*18*)
  151.  Dat[371]:=07800H; Dat[372]:=00007H; Dat[373]:=0C000H; Dat[374]:=00000H;
  152.  Dat[375]:=00003H; Dat[376]:=0E000H; Dat[377]:=0001EH;(*19*)
  153.  Dat[378]:=03C00H; Dat[379]:=0000FH; Dat[380]:=0C000H; Dat[381]:=00000H;
  154.  Dat[382]:=00003H; Dat[383]:=0F000H; Dat[384]:=0003CH;(*20*)
  155.  Dat[385]:=01E00H; Dat[386]:=0001FH; Dat[387]:=0C000H; Dat[388]:=00000H;
  156.  Dat[389]:=00003H; Dat[390]:=0F800H; Dat[391]:=00078H;(*21*)
  157.  Dat[392]:=00F00H; Dat[393]:=0003FH; Dat[394]:=0C000H; Dat[395]:=00000H;
  158.  Dat[396]:=00003H; Dat[397]:=0FC00H; Dat[398]:=000F0H;(*22*)
  159.  Dat[399]:=00780H; Dat[400]:=00077H; Dat[401]:=0C000H; Dat[402]:=00000H;
  160.  Dat[403]:=00003H; Dat[404]:=0EE00H; Dat[405]:=001E0H;(*23*)
  161.  Dat[406]:=003C0H; Dat[407]:=000E7H; Dat[408]:=0C000H; Dat[409]:=00000H;
  162.  Dat[410]:=00003H; Dat[411]:=0E700H; Dat[412]:=003C0H;(*24*)
  163.  Dat[413]:=001E0H; Dat[414]:=001C7H; Dat[415]:=0C000H; Dat[416]:=00000H;
  164.  Dat[417]:=00003H; Dat[418]:=0E380H; Dat[419]:=00780H;(*25*)
  165.  Dat[420]:=000F0H; Dat[421]:=00387H; Dat[422]:=0C000H; Dat[423]:=00000H;
  166.  Dat[424]:=00003H; Dat[425]:=0E1C0H; Dat[426]:=00F00H;(*26*)
  167.  Dat[427]:=00078H; Dat[428]:=0070FH; Dat[429]:=0C000H; Dat[430]:=00000H;
  168.  Dat[431]:=00003H; Dat[432]:=0F0E0H; Dat[433]:=01E00H;(*27*)
  169.  Dat[434]:=0003CH; Dat[435]:=00E1FH; Dat[436]:=0C000H; Dat[437]:=00000H;
  170.  Dat[438]:=00003H; Dat[439]:=0F870H; Dat[440]:=03C00H;(*28*)
  171.  Dat[441]:=0001EH; Dat[442]:=01E3FH; Dat[443]:=0C000H; Dat[444]:=00000H;
  172.  Dat[445]:=00003H; Dat[446]:=0FC78H; Dat[447]:=07800H;(*29*)
  173.  Dat[448]:=0000FH; Dat[449]:=03C77H; Dat[450]:=0C000H; Dat[451]:=00000H;
  174.  Dat[452]:=00003H; Dat[453]:=0EE3CH; Dat[454]:=0F000H;(*30*)
  175.  Dat[455]:=00007H; Dat[456]:=038E7H; Dat[457]:=0FFFFH; Dat[458]:=0FFFFH;
  176.  Dat[459]:=0FFFFH; Dat[460]:=0E71DH; Dat[461]:=0E000H;(*31*)
  177.  Dat[462]:=00003H; Dat[463]:=0B1C7H; Dat[464]:=0FFFFH; Dat[465]:=0FFFFH;
  178.  Dat[466]:=0FFFFH; Dat[467]:=0E38FH; Dat[468]:=0C000H;(*32*)
  179.  Dat[469]:=00001H; Dat[470]:=0E187H; Dat[471]:=0FFFFH; Dat[472]:=0FFFFH;
  180.  Dat[473]:=0FFFFH; Dat[474]:=0E187H; Dat[475]:=08000H;(*33*)
  181.  Dat[476]:=00000H; Dat[477]:=0C107H; Dat[478]:=0FFFFH; Dat[479]:=0FFFFH;
  182.  Dat[480]:=0FFFFH; Dat[481]:=0E083H; Dat[482]:=00000H;(*34*)
  183.  Dat[483]:=00000H; Dat[484]:=00007H; Dat[485]:=0FFFFH; Dat[486]:=0FFFFH;
  184.  Dat[487]:=0FFFFH; Dat[488]:=0E000H; Dat[489]:=00000H;(*35*)
  185.  
  186.   (* Plane 3 *)
  187.  Dat[490]:=00000H; Dat[491]:=00000H; Dat[492]:=00000H; Dat[493]:=00000H;
  188.  Dat[494]:=00000H; Dat[495]:=00000H; Dat[496]:=00000H;(* 1*)
  189.  Dat[497]:=00000H; Dat[498]:=00007H; Dat[499]:=0FFFFH; Dat[500]:=0FFFFH;
  190.  Dat[501]:=0FFFFH; Dat[502]:=0E000H; Dat[503]:=00000H;(* 2*)
  191.  Dat[504]:=00000H; Dat[505]:=00007H; Dat[506]:=0FFFFH; Dat[507]:=0FFFFH;
  192.  Dat[508]:=0FFFFH; Dat[509]:=0E000H; Dat[510]:=00000H;(* 3*)
  193.  Dat[511]:=00000H; Dat[512]:=0C107H; Dat[513]:=0FFFFH; Dat[514]:=0FFFFH;
  194.  Dat[515]:=0FFFFH; Dat[516]:=0E083H; Dat[517]:=00000H;(* 4*)
  195.  Dat[518]:=00001H; Dat[519]:=0E187H; Dat[520]:=0FFFFH; Dat[521]:=0FFFFH;
  196.  Dat[522]:=0FFFFH; Dat[523]:=0E187H; Dat[524]:=08000H;(* 5*)
  197.  Dat[525]:=00003H; Dat[526]:=0F1C7H; Dat[527]:=0FFFFH; Dat[528]:=0FFFFH;
  198.  Dat[529]:=0FFFFH; Dat[530]:=0E38FH; Dat[531]:=0C000H;(* 6*)
  199.  Dat[532]:=00007H; Dat[533]:=0F9E7H; Dat[534]:=0FFFFH; Dat[535]:=0FFFFH;
  200.  Dat[536]:=0FFFFH; Dat[537]:=0E79DH; Dat[538]:=0E000H;(* 7*)
  201.  Dat[539]:=0000FH; Dat[540]:=0BDF7H; Dat[541]:=0FFFFH; Dat[542]:=0FFFFH;
  202.  Dat[543]:=0FFFFH; Dat[544]:=0EFBDH; Dat[545]:=0F000H;(* 8*)
  203.  Dat[546]:=0001FH; Dat[547]:=0BFFFH; Dat[548]:=0FFFFH; Dat[549]:=0FFFFH;
  204.  Dat[550]:=0FFFFH; Dat[551]:=0FFFDH; Dat[552]:=0F800H;(* 9*)
  205.  Dat[553]:=0003FH; Dat[554]:=0BFFFH; Dat[555]:=0FFFFH; Dat[556]:=0FFFFH;
  206.  Dat[557]:=0FFFFH; Dat[558]:=0FFFDH; Dat[559]:=0FC00H;(*10*)
  207.  Dat[560]:=0007FH; Dat[561]:=0BFFFH; Dat[562]:=0FFFFH; Dat[563]:=0FFFFH;
  208.  Dat[564]:=0FFFFH; Dat[565]:=0FFFDH; Dat[566]:=0FE00H;(*11*)
  209.  Dat[567]:=000FFH; Dat[568]:=0BFFFH; Dat[569]:=0FFFFH; Dat[570]:=0FFFFH;
  210.  Dat[571]:=0FFFFH; Dat[572]:=0FFFDH; Dat[573]:=0FF00H;(*12*)
  211.  Dat[574]:=001FFH; Dat[575]:=0BFFFH; Dat[576]:=0FFFFH; Dat[577]:=0FFFFH;
  212.  Dat[578]:=0FFFFH; Dat[579]:=0FFFDH; Dat[580]:=0FF80H;(*13*)
  213.  Dat[581]:=003FFH; Dat[582]:=0BFFFH; Dat[583]:=0FFFFH; Dat[584]:=0FFFFH;
  214.  Dat[585]:=0FFFFH; Dat[586]:=0FFFDH; Dat[587]:=0FFC0H;(*14*)
  215.  Dat[588]:=007FFH; Dat[589]:=0BFFFH; Dat[590]:=0FFFFH; Dat[591]:=0FFFFH;
  216.  Dat[592]:=0FFFFH; Dat[593]:=0FFFDH; Dat[594]:=0FFE0H;(*15*)
  217.  Dat[595]:=00FFFH; Dat[596]:=0BFFFH; Dat[597]:=0FFFFH; Dat[598]:=0FFFFH;
  218.  Dat[599]:=0FFFFH; Dat[600]:=0FFFDH; Dat[601]:=0FFF0H;(*16*)
  219.  Dat[602]:=01FFFH; Dat[603]:=0BFFFH; Dat[604]:=0FFFFH; Dat[605]:=0FFFFH;
  220.  Dat[606]:=0FFFFH; Dat[607]:=0FFFDH; Dat[608]:=0FFF8H;(*17*)
  221.  Dat[609]:=03FFFH; Dat[610]:=0BFFFH; Dat[611]:=0FFFFH; Dat[612]:=0FFFFH;
  222.  Dat[613]:=0FFFFH; Dat[614]:=0FFFDH; Dat[615]:=0FFFCH;(*18*)
  223.  Dat[616]:=07FFFH; Dat[617]:=0BFFFH; Dat[618]:=0FFFFH; Dat[619]:=0FFFFH;
  224.  Dat[620]:=0FFFFH; Dat[621]:=0FFFDH; Dat[622]:=0FFFEH;(*19*)
  225.  Dat[623]:=03FFFH; Dat[624]:=0BFFFH; Dat[625]:=0FFFFH; Dat[626]:=0FFFFH;
  226.  Dat[627]:=0FFFFH; Dat[628]:=0FFFDH; Dat[629]:=0FFFCH;(*20*)
  227.  Dat[630]:=01FFFH; Dat[631]:=0BFFFH; Dat[632]:=0FFFFH; Dat[633]:=0FFFFH;
  228.  Dat[634]:=0FFFFH; Dat[635]:=0FFFDH; Dat[636]:=0FFF8H;(*21*)
  229.  Dat[637]:=00FFFH; Dat[638]:=0BFFFH; Dat[639]:=0FFFFH; Dat[640]:=0FFFFH;
  230.  Dat[641]:=0FFFFH; Dat[642]:=0FFFDH; Dat[643]:=0FFF0H;(*22*)
  231.  Dat[644]:=007FFH; Dat[645]:=0BFFFH; Dat[646]:=0FFFFH; Dat[647]:=0FFFFH;
  232.  Dat[648]:=0FFFFH; Dat[649]:=0FFFDH; Dat[650]:=0FFE0H;(*23*)
  233.  Dat[651]:=003FFH; Dat[652]:=0BFFFH; Dat[653]:=0FFFFH; Dat[654]:=0FFFFH;
  234.  Dat[655]:=0FFFFH; Dat[656]:=0FFFDH; Dat[657]:=0FFC0H;(*24*)
  235.  Dat[658]:=001FFH; Dat[659]:=0BFFFH; Dat[660]:=0FFFFH; Dat[661]:=0FFFFH;
  236.  Dat[662]:=0FFFFH; Dat[663]:=0FFFDH; Dat[664]:=0FF80H;(*25*)
  237.  Dat[665]:=000FFH; Dat[666]:=0BFFFH; Dat[667]:=0FFFFH; Dat[668]:=0FFFFH;
  238.  Dat[669]:=0FFFFH; Dat[670]:=0FFFDH; Dat[671]:=0FF00H;(*26*)
  239.  Dat[672]:=0007FH; Dat[673]:=0BFFFH; Dat[674]:=0FFFFH; Dat[675]:=0FFFFH;
  240.  Dat[676]:=0FFFFH; Dat[677]:=0FFFDH; Dat[678]:=0FE00H;(*27*)
  241.  Dat[679]:=0003FH; Dat[680]:=0BFFFH; Dat[681]:=0FFFFH; Dat[682]:=0FFFFH;
  242.  Dat[683]:=0FFFFH; Dat[684]:=0FFFDH; Dat[685]:=0FC00H;(*28*)
  243.  Dat[686]:=0001FH; Dat[687]:=0BFFFH; Dat[688]:=0FFFFH; Dat[689]:=0FFFFH;
  244.  Dat[690]:=0FFFFH; Dat[691]:=0FFFDH; Dat[692]:=0F800H;(*29*)
  245.  Dat[693]:=0000FH; Dat[694]:=0BDF7H; Dat[695]:=0FFFFH; Dat[696]:=0FFFFH;
  246.  Dat[697]:=0FFFFH; Dat[698]:=0EFBDH; Dat[699]:=0F000H;(*30*)
  247.  Dat[700]:=00007H; Dat[701]:=0B9E7H; Dat[702]:=0FFFFH; Dat[703]:=0FFFFH;
  248.  Dat[704]:=0FFFFH; Dat[705]:=0E79DH; Dat[706]:=0E000H;(*31*)
  249.  Dat[707]:=00003H; Dat[708]:=0B1C7H; Dat[709]:=0FFFFH; Dat[710]:=0FFFFH;
  250.  Dat[711]:=0FFFFH; Dat[712]:=0E38FH; Dat[713]:=0C000H;(*32*)
  251.  Dat[714]:=00001H; Dat[715]:=0E187H; Dat[716]:=0FFFFH; Dat[717]:=0FFFFH;
  252.  Dat[718]:=0FFFFH; Dat[719]:=0E187H; Dat[720]:=08000H;(*33*)
  253.  Dat[721]:=00000H; Dat[722]:=0C107H; Dat[723]:=0FFFFH; Dat[724]:=0FFFFH;
  254.  Dat[725]:=0FFFFH; Dat[726]:=0E083H; Dat[727]:=00000H;(*34*)
  255.  Dat[728]:=00000H; Dat[729]:=00007H; Dat[730]:=0FFFFH; Dat[731]:=0FFFFH;
  256.  Dat[732]:=0FFFFH; Dat[733]:=0E000H; Dat[734]:=00000H;(*35*)
  257.  
  258.   (* Plane 4 *)
  259.  Dat[735]:=00000H; Dat[736]:=00000H; Dat[737]:=00000H; Dat[738]:=00000H;
  260.  Dat[739]:=00000H; Dat[740]:=00000H; Dat[741]:=00000H;(* 1*)
  261.  Dat[742]:=00000H; Dat[743]:=00000H; Dat[744]:=00000H; Dat[745]:=00000H;
  262.  Dat[746]:=00000H; Dat[747]:=00000H; Dat[748]:=00000H;(* 2*)
  263.  Dat[749]:=00000H; Dat[750]:=00000H; Dat[751]:=00000H; Dat[752]:=00000H;
  264.  Dat[753]:=00000H; Dat[754]:=00000H; Dat[755]:=00000H;(* 3*)
  265.  Dat[756]:=00000H; Dat[757]:=00000H; Dat[758]:=00000H; Dat[759]:=00000H;
  266.  Dat[760]:=00000H; Dat[761]:=00000H; Dat[762]:=00000H;(* 4*)
  267.  Dat[763]:=00000H; Dat[764]:=00000H; Dat[765]:=00000H; Dat[766]:=00000H;
  268.  Dat[767]:=00000H; Dat[768]:=00000H; Dat[769]:=00000H;(* 5*)
  269.  Dat[770]:=00000H; Dat[771]:=00000H; Dat[772]:=00000H; Dat[773]:=00000H;
  270.  Dat[774]:=00000H; Dat[775]:=00000H; Dat[776]:=00000H;(* 6*)
  271.  Dat[777]:=00000H; Dat[778]:=08000H; Dat[779]:=00000H; Dat[780]:=00000H;
  272.  Dat[781]:=00000H; Dat[782]:=00000H; Dat[783]:=00000H;(* 7*)
  273.  Dat[784]:=00000H; Dat[785]:=08000H; Dat[786]:=00000H; Dat[787]:=00000H;
  274.  Dat[788]:=00000H; Dat[789]:=00001H; Dat[790]:=00000H;(* 8*)
  275.  Dat[791]:=00001H; Dat[792]:=08000H; Dat[793]:=00000H; Dat[794]:=00000H;
  276.  Dat[795]:=00000H; Dat[796]:=00001H; Dat[797]:=08000H;(* 9*)
  277.  Dat[798]:=00003H; Dat[799]:=08000H; Dat[800]:=00000H; Dat[801]:=00000H;
  278.  Dat[802]:=00000H; Dat[803]:=00001H; Dat[804]:=0C000H;(*10*)
  279.  Dat[805]:=00007H; Dat[806]:=08000H; Dat[807]:=00000H; Dat[808]:=00000H;
  280.  Dat[809]:=00000H; Dat[810]:=00001H; Dat[811]:=0E000H;(*11*)
  281.  Dat[812]:=0000FH; Dat[813]:=08000H; Dat[814]:=00000H; Dat[815]:=00000H;
  282.  Dat[816]:=00000H; Dat[817]:=00001H; Dat[818]:=0F000H;(*12*)
  283.  Dat[819]:=0001FH; Dat[820]:=08000H; Dat[821]:=00000H; Dat[822]:=00000H;
  284.  Dat[823]:=00000H; Dat[824]:=00001H; Dat[825]:=0F800H;(*13*)
  285.  Dat[826]:=0003FH; Dat[827]:=08000H; Dat[828]:=00000H; Dat[829]:=00000H;
  286.  Dat[830]:=00000H; Dat[831]:=00001H; Dat[832]:=0FC00H;(*14*)
  287.  Dat[833]:=0007FH; Dat[834]:=08000H; Dat[835]:=00000H; Dat[836]:=00000H;
  288.  Dat[837]:=00000H; Dat[838]:=00001H; Dat[839]:=0FE00H;(*15*)
  289.  Dat[840]:=000FFH; Dat[841]:=08000H; Dat[842]:=00000H; Dat[843]:=00000H;
  290.  Dat[844]:=00000H; Dat[845]:=00001H; Dat[846]:=0FF00H;(*16*)
  291.  Dat[847]:=001FFH; Dat[848]:=08000H; Dat[849]:=00000H; Dat[850]:=00000H;
  292.  Dat[851]:=00000H; Dat[852]:=00001H; Dat[853]:=0FF80H;(*17*)
  293.  Dat[854]:=003FFH; Dat[855]:=08000H; Dat[856]:=00000H; Dat[857]:=00000H;
  294.  Dat[858]:=00000H; Dat[859]:=00001H; Dat[860]:=0FFC0H;(*18*)
  295.  Dat[861]:=007FFH; Dat[862]:=08000H; Dat[863]:=00000H; Dat[864]:=00000H;
  296.  Dat[865]:=00000H; Dat[866]:=00001H; Dat[867]:=0FFE0H;(*19*)
  297.  Dat[868]:=003FFH; Dat[869]:=08000H; Dat[870]:=00000H; Dat[871]:=00000H;
  298.  Dat[872]:=00000H; Dat[873]:=00001H; Dat[874]:=0FFC0H;(*20*)
  299.  Dat[875]:=001FFH; Dat[876]:=08000H; Dat[877]:=00000H; Dat[878]:=00000H;
  300.  Dat[879]:=00000H; Dat[880]:=00001H; Dat[881]:=0FF80H;(*21*)
  301.  Dat[882]:=000FFH; Dat[883]:=08000H; Dat[884]:=00000H; Dat[885]:=00000H;
  302.  Dat[886]:=00000H; Dat[887]:=00001H; Dat[888]:=0FF00H;(*22*)
  303.  Dat[889]:=0007FH; Dat[890]:=08000H; Dat[891]:=00000H; Dat[892]:=00000H;
  304.  Dat[893]:=00000H; Dat[894]:=00001H; Dat[895]:=0FE00H;(*23*)
  305.  Dat[896]:=0003FH; Dat[897]:=08000H; Dat[898]:=00000H; Dat[899]:=00000H;
  306.  Dat[900]:=00000H; Dat[901]:=00001H; Dat[902]:=0FC00H;(*24*)
  307.  Dat[903]:=0001FH; Dat[904]:=08000H; Dat[905]:=00000H; Dat[906]:=00000H;
  308.  Dat[907]:=00000H; Dat[908]:=00001H; Dat[909]:=0F800H;(*25*)
  309.  Dat[910]:=0000FH; Dat[911]:=08000H; Dat[912]:=00000H; Dat[913]:=00000H;
  310.  Dat[914]:=00000H; Dat[915]:=00001H; Dat[916]:=0F000H;(*26*)
  311.  Dat[917]:=00007H; Dat[918]:=08000H; Dat[919]:=00000H; Dat[920]:=00000H;
  312.  Dat[921]:=00000H; Dat[922]:=00001H; Dat[923]:=0E000H;(*27*)
  313.  Dat[924]:=00003H; Dat[925]:=08000H; Dat[926]:=00000H; Dat[927]:=00000H;
  314.  Dat[928]:=00000H; Dat[929]:=00001H; Dat[930]:=0C000H;(*28*)
  315.  Dat[931]:=00001H; Dat[932]:=08000H; Dat[933]:=00000H; Dat[934]:=00000H;
  316.  Dat[935]:=00000H; Dat[936]:=00001H; Dat[937]:=08000H;(*29*)
  317.  Dat[938]:=00000H; Dat[939]:=08000H; Dat[940]:=00000H; Dat[941]:=00000H;
  318.  Dat[942]:=00000H; Dat[943]:=00001H; Dat[944]:=00000H;(*30*)
  319.  Dat[945]:=00000H; Dat[946]:=08000H; Dat[947]:=00000H; Dat[948]:=00000H;
  320.  Dat[949]:=00000H; Dat[950]:=00000H; Dat[951]:=00000H;(*31*)
  321.  Dat[952]:=00000H; Dat[953]:=00000H; Dat[954]:=00000H; Dat[955]:=00000H;
  322.  Dat[956]:=00000H; Dat[957]:=00000H; Dat[958]:=00000H;(*32*)
  323.  Dat[959]:=00000H; Dat[960]:=00000H; Dat[961]:=00000H; Dat[962]:=00000H;
  324.  Dat[963]:=00000H; Dat[964]:=00000H; Dat[965]:=00000H;(*33*)
  325.  Dat[966]:=00000H; Dat[967]:=00000H; Dat[968]:=00000H; Dat[969]:=00000H;
  326.  Dat[970]:=00000H; Dat[971]:=00000H; Dat[972]:=00000H;(*34*)
  327.  Dat[973]:=00000H; Dat[974]:=00000H; Dat[975]:=00000H; Dat[976]:=00000H;
  328.  Dat[977]:=00000H; Dat[978]:=00000H; Dat[979]:=00000H;(*35*)
  329.  
  330. END;
  331. END PlusMinusImg.
  332.